home *** CD-ROM | disk | FTP | other *** search
/ Roboty / ROBOTS_CD.iso / CD / assembly.dxr / Internal_18_brief txt.ls < prev    next >
Encoding:
Text File  |  2005-05-13  |  844 b   |  40 lines
  1. property spriteNum, butNum, blendV, pText, pChars, pIndex, pMember
  2. global briefNumber
  3.  
  4. on beginSprite me
  5.   blendV = 100
  6.   sprite(spriteNum).visible = 0
  7.   pMember = member("type")
  8. end
  9.  
  10. on NewBrief me
  11.   pMember.text = EMPTY
  12.   pText = member("brief" & briefNumber).text
  13.   pChars = pText.length
  14.   sprite(spriteNum).member = pMember
  15.   sprite(spriteNum).visible = 1
  16.   pIndex = 0
  17.   timeout("loadText").new(20, #loadText, spriteNum)
  18.   puppetSound(1, "incomingSound")
  19. end
  20.  
  21. on nextChar me
  22.   if pIndex <= pChars then
  23.     pIndex = pIndex + 1
  24.     pMember.text = pMember.text & pText.char[pIndex]
  25.     sprite(28).visible = pIndex mod 2
  26.   else
  27.     sendAllSprites(#briefLoaded)
  28.   end if
  29. end
  30.  
  31. on mouseUp
  32.   sendAllSprites(#briefLoaded)
  33. end
  34.  
  35. on briefLoaded me
  36.   sound(1).stop()
  37.   timeout("loadText").forget()
  38.   sprite(spriteNum).member = "brief" & briefNumber
  39. end
  40.